home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2posx10.zoo / m2posix.10 / src / pstorage.dpp < prev    next >
Encoding:
Modula Definition  |  1993-07-06  |  850 b   |  47 lines
  1. DEFINITION MODULE pSTORAGE;
  2. __DEF_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12.  
  13. (*
  14. A portable Storage Module.
  15.  
  16. UK __DATE__ __TIME__
  17. modified by hk
  18. *)
  19.  
  20. FROM SYSTEM IMPORT ADDRESS;
  21. #ifdef FTLM2
  22. #define Storage STORAGE
  23. #endif
  24.  
  25. #ifdef FTLM2
  26. IMPORT Storage;
  27. #endif
  28.  
  29. #ifdef __GEMDOS__
  30. TYPE SIZETYPE = LONGCARD;
  31. #else
  32. TYPE SIZETYPE = CARDINAL;
  33. #endif
  34.  
  35. #ifdef FTLM2
  36. CONST ALLOCATE = Storage.ALLOCATE;
  37.  
  38.       DEALLOCATE = Storage.DEALLOCATE;
  39. #endif
  40.  
  41. #ifndef FTLM2
  42. PROCEDURE ALLOCATE(VAR Addr: ADDRESS; Size: SIZETYPE);
  43.  
  44. PROCEDURE DEALLOCATE(VAR Addr: ADDRESS; Size: SIZETYPE);
  45. #endif
  46. END pSTORAGE.
  47.